program Project1; // Zadanie 1.4

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  r, objetosc: Real;

begin
  Writeln('Program oblicza objetosc kuli o promieniu r.');
  Writeln('Podaj promien r.');
  Readln(r);
  objetosc := 4*Pi*r*r*r/3;
  Write('Objetosc kuli o promieniu r = ', r:4:2);
  Writeln(' wynosi ', objetosc:4:2,'.');

  Readln; // czeka na nacisniecie klawisza Enter
end.
